home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / hard / drivr / ibmk.lha / ibmk / foo < prev    next >
Text File  |  1991-04-12  |  2KB  |  243 lines

  1. nop
  2. ajmp 100h
  3. ljmp 100h
  4. rr a
  5. inc a
  6. inc 40h
  7. inc r0
  8. inc r1
  9. inc r2
  10. inc r3
  11. inc r4
  12. inc r5
  13. inc r6
  14. inc r7
  15. jbc 20h,77h
  16. acall 0
  17. lcall 4220h
  18. rrc a
  19. dec a
  20. dec 40h
  21. dec @r0
  22. dec @r1
  23. dec r0
  24. dec r1
  25. dec r2
  26. dec r3
  27. dec r4
  28. dec r5
  29. dec r6
  30. dec r7
  31. jb 10h,77h
  32. ret
  33. rl a
  34. add a,#1
  35. add a,20h
  36. add a,@r0
  37. add a,@r1
  38. add a,r0
  39. add a,r1
  40. add a,r2
  41. add a,r3
  42. add a,r4
  43. add a,r5
  44. add a,r6
  45. add a,r7
  46. jnb 10h,77h
  47. reti
  48. rlc a
  49. addc a,#1
  50. addc a,20h
  51. addc a,@r0
  52. addc a,@r1
  53. addc a,r0
  54. addc a,r1
  55. addc a,r2
  56. addc a,r3
  57. addc a,r4
  58. addc a,r5
  59. addc a,r6
  60. addc a,r7
  61. jc 77h
  62. orl 20h,a
  63. orl 20h,#1
  64. orl a,#1
  65. orl a,20h
  66. orl a,@r0
  67. orl a,@r1
  68. orl a,r0
  69. orl a,r1
  70. orl a,r2
  71. orl a,r3
  72. orl a,r4
  73. orl a,r5
  74. orl a,r6
  75. orl a,r7
  76. jnc 77h
  77. anl 20h,a
  78. anl 20h,#1
  79. anl a,#1
  80. anl a,20h
  81. anl a,@r0
  82. anl a,@r1
  83. anl a,r0
  84. anl a,r1
  85. anl a,r2
  86. anl a,r3
  87. anl a,r4
  88. anl a,r5
  89. anl a,r6
  90. anl a,r7
  91. jz 77h
  92. xrl 20h,a
  93. xrl 20h,#1
  94. xrl a,#1
  95. xrl a,20h
  96. xrl a,@r0
  97. xrl a,@r1
  98. xrl a,r0
  99. xrl a,r1
  100. xrl a,r2
  101. xrl a,r3
  102. xrl a,r4
  103. xrl a,r5
  104. xrl a,r6
  105. xrl a,r7
  106. jnz 77h
  107. orl c,10h
  108. jmp @a+dptr
  109. mov a,#1
  110. mov 20h,#1
  111. mov @r0,#1
  112. mov @r1,#1
  113. mov r0,#1
  114. mov r1,#1
  115. mov r2,#1
  116. mov r3,#1
  117. mov r4,#1
  118. mov r5,#1
  119. mov r6,#1
  120. mov r7,#1
  121. sjmp 77h
  122. anl c,77h
  123. movc a,@a+pc
  124. div ab
  125. mov 20h,21h
  126. mov 20h,@r0
  127. mov 20h,@r1
  128. mov 20h,r0
  129. mov 20h,r1
  130. mov 20h,r2
  131. mov 20h,r3
  132. mov 20h,r4
  133. mov 20h,r5
  134. mov 20h,r6
  135. mov 20h,r7
  136. mov dptr,#2123h
  137. mov 77h,c
  138. movc a,@a+dptr
  139. subb a,#1
  140. subb a,20h
  141. subb a,@r0
  142. subb a,@r1
  143. subb a,r0
  144. subb a,r1
  145. subb a,r2
  146. subb a,r3
  147. subb a,r4
  148. subb a,r5
  149. subb a,r6
  150. subb a,r7
  151. mov c,77h
  152. inc dptr
  153. mul ab
  154. mov @r0,20h
  155. mov @r1,20h
  156. mov r0,20h
  157. mov r1,20h
  158. mov r2,20h
  159. mov r3,20h
  160. mov r4,20h
  161. mov r5,20h
  162. mov r6,20h
  163. mov r7,20h
  164. cpl 77h
  165. cpl c
  166. cjne a,#1,loo
  167. cjne a,20h,loo
  168. cjne @r0,#1,loo
  169. cjne @r1,#1,loo
  170. cjne r0,#1,loo
  171. cjne r1,#1,loo 
  172. cjne r2,#1,loo 
  173. cjne r3,#1,loo 
  174. cjne r4,#1,loo 
  175. cjne r5,#1,loo 
  176. cjne r6,#1,loo 
  177. cjne r7,#1,loo 
  178. loo:
  179. push 40h
  180. clr 77h
  181. clr c
  182. swap a
  183. xch a,20h
  184. xch a,@r0
  185. xch a,@r1
  186. xch a,r0
  187. xch a,r1
  188. xch a,r2
  189. xch a,r3
  190. xch a,r4
  191. xch a,r5
  192. xch a,r6
  193. xch a,r7
  194. pop 40h
  195. setb 77h
  196. setb c
  197. da a
  198. djnz 40h,loo 
  199. xchd a,@r0
  200. xchd a,@r1
  201. loop:
  202. djnz r0,loop
  203. djnz r1,loop
  204. djnz r2,loop
  205. djnz r3,loop
  206. djnz r4,loop
  207. djnz r5,loop
  208. djnz r6,loop
  209. djnz r7,loop
  210. movx a,@dptr
  211. movx a,@r0
  212. movx a,@r1
  213. clr a
  214. mov a,20h
  215. mov a,@r0
  216. mov a,@r1
  217. mov a,r0
  218. mov a,r1
  219. mov a,r2
  220. mov a,r3
  221. mov a,r4
  222. mov a,r5
  223. mov a,r6
  224. mov a,r7
  225. movx @dptr,a
  226. movx @r0,a
  227. movx @r1,a
  228. cpl a
  229. mov @r0,a
  230. mov @r1,a
  231. mov r0,a
  232. mov r1,a
  233. mov r2,a
  234. mov r3,a
  235. mov r4,a
  236. mov r5,a
  237. mov r6,a
  238. mov r7,a
  239.  
  240.  
  241.  
  242.  
  243.